home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / UNIXLIB37B / !UnixLib37_netlib_netlib_s__sockstat < prev    next >
Encoding:
Text File  |  1996-11-05  |  485 b   |  31 lines
  1. ;----------------------------------------------------------------------------
  2. ;
  3. ; $Source$
  4. ; $Date$
  5. ; $Revision$
  6. ; $State$
  7. ; $Author$
  8. ;
  9. ; $Log$
  10. ;----------------------------------------------------------------------------
  11.  
  12.     GET    Unix37:unixlib.s.asm_dec
  13.  
  14.     AREA    |C$$code|,CODE,READONLY
  15.  
  16.     IMPORT    |__errno|
  17.  
  18.     EXPORT    |_sockstat|
  19.     NAME    _sockstat
  20. |_sockstat|
  21.     STMFD    sp!,{lr}
  22.     SWI    XSocket_Stat
  23.     LDMVCFD    sp!,{pc}^
  24.     LDR    r1,=|__errno|
  25.     LDR    r0,[r0]
  26.     STR    r0,[r1]
  27.     MOV    r0,#-1
  28.     LDMFD    sp!,{pc}^
  29.  
  30.     END
  31.